home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / UNIVERSE / STARTUP.DIR / 00006_Script_6 < prev    next >
Text File  |  1995-11-14  |  2KB  |  82 lines
  1. on startMovie
  2.   global gMenuVolume, gVolume
  3.   
  4.   if the colorDepth < 8 then
  5.     alert("The Invisible Universe CD-ROM only works with 256 (8-bit) colors or more.  Please modify your computer's color settings.")
  6.     quit    
  7.     
  8.   end if
  9.   
  10.   
  11.   set gMenuVolume = 10
  12.   set gVolume = 255 -- check with shared cast
  13.   
  14.   setPaths
  15.   set the preLoadRAM = 204800   
  16.   preLoadCast 1
  17. end
  18.  
  19.  
  20.  
  21. on setPaths
  22.   --set the exitLock = 1
  23.   
  24.   --set the keyDownScript to "checkKeyDowns"
  25.   
  26.   if the machineType = 256 then
  27.     openXlib "fileio"
  28.     
  29.     set theDrive = findCD()
  30.     
  31.     set the searchPath = [¼
  32. the moviePath,¼
  33. the moviePath & "MIAWS\",¼
  34. theDrive & ":\MOVIES\",¼
  35. theDrive & ":\MOVIES\MIAWS\",¼
  36. theDrive & ":\MEDIA\",¼
  37. theDrive & ":\UNIVERSE\"]      
  38.   else
  39.     set the searchPath = [¼
  40. the moviePath, ¼
  41. the moviePath & "MOVIES:", ¼
  42. "Invisible Universe CD:MOVIES:", ¼
  43. "Invisible Universe CD:MOVIES:MIAWS:",¼
  44. "Invisible Universe CD:MEDIA:"]
  45.   end if  
  46. end setPaths
  47.  
  48. on findCD
  49.   set mp = the moviePath
  50.   set len = length(mp)
  51.   --
  52.   --
  53.   -- Running off the CD-ROM from the UNIVERSE Directory?
  54.   --
  55.   if (char 2 to len of mp) = ":\UNIVERSE\" then
  56.     return char 1 of mp 
  57.   else
  58.     set theChar = charToNum("A") - 1
  59.     repeat with i = 4 to 26 
  60.       
  61.       if isCDThere(numToChar(theChar + i)) then
  62.         return(numToChar(theChar + i))
  63.       end if
  64.       
  65.     end repeat
  66.     
  67.     alert("Please insert the Invisible Universe CD-ROM and restart the program.")
  68.     quit    
  69.     
  70.   end if
  71.   
  72. end findCD
  73.  
  74. on isCDThere theDrive
  75.   set fn = getNthFileNameInFolder(theDrive & ":\MEDIA", 1)
  76.   if fn = "CC.MOV" then
  77.     return(1)
  78.   else
  79.     return(0)
  80.   end if  
  81. end
  82.